sub pacmanputsprite(tpl as ubyte, txc as ubyte, tyc as ubyte, tco as ubyte, tpa as ubyte):
  poke $5060+((tpl mod 8)*2),txc   '- x sprite 0
  poke $5061+((tpl mod 8)*2),tyc   '- y sprite 0
  poke $4FF1+((tpl mod 8)*2),tco   '- clut? sprite 0
  poke $4FF0+((tpl mod 8)*2),tpa   '- shape sprite 0
  end sub

